home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / MacPerl 506 appl folder.sit / MacPerl 506 appl folder / Mac_Perl_506r1m_appl / lib / subs.pm < prev    next >
Text File  |  1994-12-26  |  228b  |  17 lines
  1. package subs;
  2.  
  3. require 5.000;
  4.  
  5. $ExportLevel = 0;
  6.  
  7. sub import {
  8.     my $callpack = caller;
  9.     my $pack = shift;
  10.     my @imports = @_;
  11.     foreach $sym (@imports) {
  12.     *{"${callpack}::$sym"} = ¥&{"${callpack}::$sym"};
  13.     }
  14. };
  15.  
  16. 1;
  17.